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I. (U) PURPOSE: | 

(S/NF) This paper documents the Saiseian of the first phase of a 
DI-S originated training/applications research project. 

II. (U) SCOPE: 

(U) This report discusses the concept, documents the unique hardware 
and software approach developed, and identifies instructions/protocols 
involved in this proficiency enhancement activity. ° 

(S/NF) Follow-on reports of this proficiency enhancement project are 
anticipated that will discuss later phases. These reports will address 
statistical results, evaluation criteria, training/performance rates, and 
potential impact on select applications/projects. 

III. (U) DISCUSSION: 

(S/SG/NF/LIMDIS) This proficiency enhancement project was developed 
by DI-S in order to improve the efficiency and pace of training/practice 
available to DI-S personnel. It is anticipated that this technique will 
significantly enhance the success probability of certain applications of 
interest, such as search/track and possibly other operational projects. 
This training/practice technique could also lead to the possibility of a 
long-distance iccdemicatians* capability. Even though data-rate would 
probably be limited, there may be some situations where such a capability 


would be useful (e.g., hostage projects). 
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Tv. (U) BACKGROUND: 

a. (S/SG/NF/LIMDIS) Several members of the DI-S staff attended the 
1991 Atlantic University Consciousness Symposium, held in Virginia Beach, 
VA, on 16-17 February 1991 (see report DI-S-1029-SL, dtd 15 MARCH 1991). 
While there, two members of the staff were allowed to use an antique Zener 
card machine in the university's possession, which purportedly tested 
"mental communication" skills (a diagram of this machine is shown in 
Appendix A). Results were quite successful, prompting later discussion 
about the experience. The idea surfaced that this technique would also be 
- of direct use to DI-S as a potential proficiency enhancement procedure. 

b. (S/SG/NF/LIMDIS) Work toward the goal of developing such a 
capability began upon return from the symposium and a computerized version 
of this antique "mental commmication" testing device was developed. 
Modifications would be needed, however, to permit this technique to have a 
wider role for DI-S. Thus, a variety of training/practice approaches 
would be incorporated; the system would be designed for very rapid use 
(including feedback), results would be part of a permanent record for each 
individual, and rapid statistical evaluations could be made. 
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Vv.  (U) DESIGN CRITERTA FOR HARDWARE AND SOFTWARE: 

(S/NF) Even though a variety of training/practice procedures could 
be accomplished from the envisioned proficiency training technique, the 
most stringent aspect from a designer point-of-view was the 
"communications" aspect. This, as well as other needs led to the 
following requirements: 

a. (S) Accessibility for all DI-S staff. 

b. (U) Targets selected at random from a large target pool. 

c. (U) Statistical track of individual and group perfomance 
maintained to inclide: 

1. “Receiver's" name or Source number. 
2. "Sender's" name or Source number. 
3. Date of session. 

4. Number of trails. 

5. Number of successful trials. 

dad. (U) Format appropriate for periodic status and progress 
reports. 

e. ,(U) Flexibility: This system requires flexibility in order to 
allow scientific experimentation with different types of 
targeting groups. Zener cards only provide a set of geometric 
and meaningless symbols; this system should include human 
expressions, colors, emotional situations, etc. 

f. (U) Built-in potential for unlimited target pools to permit 


expansion of application options. 
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(U) Communications utility: In this case, the system would 
require additional software to permit utility of coded messages 
to be evaluated. This additional software can be generated in- 


house. 
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Vv.  (U) IMPLEMENTATION: A study indicated that the majority of 
equipment/technology already existed in DI-S. Therefore, the following 
guidelines were considered for project implementation: 

a. (U) Existing computers were used. This further meant that 
there would be no terminals dedicated to this project alone, but that all 
hardware and software must be "invisible" to nommal operations. 

b. (U) The two computers had to be "tied together" so they could 
communicate. This was necessary in order to allow both to agree on the 
same target card, and so both would be aware of the "receiver's" card 
choice.1 

d. (U) DI-S uses the TURBO PASCAL programming language, which is 
completely adequate for the programming demands for this project. SFC 
ae -« DI-S is a qualified programmer with this language, and used it 
to write the three programs necessary for the project. These three 
programs are: 

1. MENTCOMM.EXE This is the "master" program which perform 
all required functions for the user, 
selects targets, controls both machines, and 
performs all necessary data manipulation 
functions. The programming source code 

2 (U) ~=Computers can not be internally modified without permission from 

DSO. A request would have to delineate all aspects of the 
project, requiring DSO people to be read on, etc. Therefore, all 
connecting and control circuitry had to be. external and "invisible" to 
normal operat.ions. A full study of the possibilities finally led to the 
simplest solution, a "ginmicked" inter-computer control cable (acting as a 
nine-wire "null modem") , as depicted in Appendix A. 
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listing for this program is located in 
Appendix B. 

2. MENTCOM2.EXE This is Fe "slave" program which is run on 
the "sender's" machine. This program only 
serves to display the target card to the 
"sender", The programming source code for 
this program is located in Appendix Cc. 

3. PI3DECOD.EXE This program is used by the other two, and 
not by the user, directly. The programming 
sources code for this program is located in 
Appendix D. 


e. (U) Along with these three programs, other files are used to 
contain the libraries of target photos, diagrams, symbols, etc. A hard 
copy of the present target file libraries are found in Appendix E. Each 
library holds 18 targets, and the program is expandable to use as many 
target libraries as future needs warrant. 
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VI. (U) OTHER CONSIDERATIONS: 

a. (C) Because software is so easily transportable, and often 
seems to appear in unauthorized places, as if by magic, the title page of 
this program was written without any reference to DIA, DI-S, Project SIAR 
GATE, or the U.S. government. For all outward appearances, it is a 
general purpose program, of the type which could be bought in a store. 
Likewise, no classified material has been or will be put into the target 
libraries. 

b. = (C) Since practice time is rare, it was believed that 
opportunities for two people to work together in practice would be even 
rarer. For this reason, the program was so designed to automatically know 
whether or not it was being used by one person or two. If a person wants 
to practice alone, the "master" program will continue to operate, but the 
emphasis will be on "communicating" with the computer, rather than with 
another person. The data which is kept at the end of the practice 
session will reflect the fact that a solo session was performed. 

c. (8) Since there is strong evidence from other experiments 
indicating that the type of target affects a person's ability to mentally 
communicate, the libraries are oriented toward "sets" or target types. 
Data records kept at the end of each session also indicate which type of 
target library was used, allowing for future analysis of each source's 


performance according to target type. 
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VII. (U) INSTRUCTIONS FOR PERFORMING A SESSION: Every attempt has been 


made to make the program as "user-friendly" as possible.2 Operation is as 
follows: 
ee (U) If two computers are to be used in tandem (for the 

"sender/receiver" mode of operation), the inter-computer connecting cable 
must be plugged into the CoM2 port of each machine. As soon as we can 
establish a dedicated location and permanent hook-up for this project, 
this step will no longer be required. 

b. (U) The computer(s) is(are) turned on, amd when the main menu 
appears, the option for Mental Communications Practice is selected. 

c. (U) A second menu appears, asking whether the user will be 
acting as "sender" or "receiver". 

1. If the user is the one who will try to acquire the targets, 
he/she is the "receiver" (of the mental communication), and should select 
the (R)eceiver option. 

2. If the user is the one who will be looking at the target 
picture and trying to "send" this information to the other, he/she should 
select the (S)ender option. 

d.  (U) The instructions for each person will appear on their 
. individual screens. From this time on, the person acting as "receiver" is 


in complete control of the programs on both machines. 


2 (U) ALL computer screens seen during the program are show in hard 


copy form in Appendix F. 
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e. (U) When both participants have read the instructions, the 
"receiver" person presses a key, and is given the choice of selecting 
which library of pictures/diagrams/symbols/etc. will be used for the 
session. 

f. (U) Once the target library has been selected, the complete 
library will be shown on both screens. The reason for this is to prevent 
overdue attraction to any one target picture during the later practice 
session, simply because it has not been seen for a while. 

g. (U) When the library of targets has been removed from the 
screen, the "receiver's" (main) program will randomly select four target 
pictures from the library and display them side-by-side on the 
"receiver's" screen. The computer will then randomly select one of these 
four as the specific target. A copy of the specific target will be shown 
on the "sender's" screen (on the other computer). 

h. (U) The "sender" concentrates on the target picture, imagining 
hin/herself interacting with the picture's contents, studying the specific 
aspects of the pickine: etc. 

i. U) The "receiver" waits for an impression. This may be visual, 
auditory, or just a "feeling" for one of the four pictures over the 
others. Each picture has a number underneath it (1..4). When the 
"receiver" has determined which picture to select, he/she presses the 1, 
2, 3, or 4 key on the computer keyboard. 

4}. (U) ‘IMMEDIATE FEEDBACK IS THEN PROVIDED. ‘The screen will blank 


for a moment, then the numbers will reappear. However, only the target 
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picture will reappear above its mmber. This image is held on the screen 
for approximately one second, before moving on to the next trial. 

k. (U) ‘The number of trials completed is shown in the lower left 
hand corner of the screen, amd the number of "hits" is shown in the lower 
right hand side of the screen during each trial. The number of "hits" is 
also shown to the "sender" on the other computer, as positive feedback to 
him/her. 

1. (U) When the "receiver" is ready to quit the session, the Esc 
key is pressed. The screen will blank, and a complete statistical package 
will be shown on both computer screens. At this time, the "receiver" has 
three choices: 

a) To continue the session, taking up where he/she left off. 
b) To start the session over again from zero. 
c) To quit. 

m. (U) Should the "receiver" choose to quit, the computer will ask 
for the date amd the "receiver's" identification. If this has not beena 
solo session, the computer will also ask for the "sender's" 
identification. 

n. (U) All session statistics are added to the "receiver's" data 
file before the program terminates, and the user is returned to the 
computer's menu screen. 
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“SENDER” "RECELVER” 
+Voits for lights only +Voits for selection 


Hit = Hi " 
light counter light 
Figure A-15 ESP TESTING DEVICE AT AMERICAN UNIVERSITY 
Fonctional Diagram 


The random number generator randomly closes one of the five svitches, 
lighting the corresponding light behind one of the "“Sender’s” symbols. 


The "Sender" concentrates on the lit symbol. 


The "Receiver" vaits until an impression is gained and then presses 
the button below the symbol he/she thinks is the proper target. 


Pressing the button automatically kicks up the Trials counter. 
If the correct symbol is selected, the closed circuit also 


kicks up the Hits counter and lights the "HIT" lights as positive 
feedback to both participants. 
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1 2 3 4 
Trisis: 5 ‘Hits: 3 Inter—computer 


] control cable 


ESP MACHINE FOR DI-5 


1. The "Receiver’s” computer selects four targets from a library of 
many, and shovs them on the screen of Computer A. 


2. It then randomly selects one of the four and sends that target 
to the "sender’s” computer. 


3. The "Sender" concentrates on the target picture. 

4. Tho "Receiver” attempts to receive images, feelings, etc. about 
the target picture. When such a feeling is received, the "Receiver” 
selects the target picture from among the fouc shown, and presses 
the corresponting key on the keyboard. 


5. Immediate feedback is given to each participant before continuing 
to the next set of pictures. 
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Data In 


PLUG B 
Into slave 
‘computer’s 
COKN2 port 


Figure A-3: INTER-COMPUTER CONTROL CABLE 


Plugs are 9-pdin female "D”" plugs. 
Cahle is 9-vire flat ribbon cable. 


1. Demands that uo internal changes be made to the computers 
prompted the need for special external circuitry. This is 
in the form of an inter—compster control, or "Null—modem” 
cable, hooked to the data extry port (COM2) of each computer. 


2. The cable is "ginmmicked” in such a way that data out of each 
computer is fed into the input lines of the other, as are 

the request info lines ( "Ready???" and "Data Received?” ) 

and the status lines ("Ready!!!" and “Data Received!” ) 

During the actual use of the program, these data lines are 

taken over by the programming, instead of being used in the 

normal manner. Controlling commands are converted by MENTCOMN. EXE 


iuto the appearance of data. Once converted, they can be passed 
as data over the data lines. MENTOON2Z.EXE recouverts the data 


into commands, and obeys then. 
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Figure A-4: Photograph of the 
inter—computer control cable, 
shoving plugs and “gimmick” areas. 
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SOURCE CODE FOR THE PROGRAM MENTCOMM. EXE 
WRITTEN IN TURBO PASCAL Ver. 5.1 


PROGRAM MENTCOMM; 
USES 
CRT, DOS, GRAPH, PI3DECOD; 


CONST 
Height = 100; 
Width = 100; 
Offset = 50; 

VAR 
Action : string; 
Dir : string; 
Key char; 
Hits : integer; 
Lineout : text; 
Name : string; 
Nunb1, 
Nurb2, 
Numb3, 
Nunb4, 
NumbX : integer; 
NumbH, 
Numbs, 
NunbT : string; 
Pl, F2, 
P3, P4, 
P5, P6, 
P7, P8, 
P9, P10, 
P11,P12, 
P13,P14, 
P15,P16, 


Score : real; 
Size : word; 
Trial : integer; 
x1, 32; 

X3, X4, 

X5, X6, 

Yl, Y2, 

¥3 : integer; 
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FUNCTION SETX(Number : integer) : integer; 
begin 
case Number of 
1, 7, 13 : SETX := 07 
2, 8, 14 : SETX := Width; 
3, 9, 15 : SETX := Width * 2; 
4, 10, 16 : SETX := Width * 3; 
5, 11, 17 : SEITX := Width * 4; 
6, 12, 18 : SETX := Width * 5; 
end; 
end; 


FUNCTION SETY (Number : integer) : integer; 
begin 
case Number of 


1, 2, 3, 4, 5, 6: SETY :<= 0; 
7, 8, 9, 10, 11, 12 : SETY := Height; 
13, 14, 15, 16, 17, 18 : SETY := Height * 2; 

end; 

end; 
PROCEDURE WRITE _LINE(tempstr: string) ; 
in 
rewrite(Lineout) i 


writeln(Lineout, tenpstx, #13) 3 
close (Lineout); 

delay (150); 

end; 


Randomize; 
Numb1 := random(17) + 1; 
repeat 
Numb2 := random(17) + 1; 
until Numb2 <> Nunb1; 
repeat 
Numb3 := random(17) + 1; 
until (Numb3 <> Numb1) and (Numb3 <> Numb2); 
repeat 
Numb4 := random(17) + 1; 
until (Numb4 <> Numb1) and (Numb4 <> Numb2) and (Numb4 <> Numb3); 
end; 


PROCEDURE PICK_1; 
var 
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tempint : integer; 
begin 
tempint := random(1000) ; 
if NumbS <> '0O' then 
begin 
case tempint of 
000..250 : begin 


NumbX := 1; 

str (Numb1, NumbS) ; 
251..500 : begin 

NumbX 3= 2; 

str (Numb2 , NumbS) ; 

end; 

501..750 : begin 

NumbX := 3; 


str (Numb3 , NumbS) ; 


f 
751..999 : begin 


NumbX := 4; 
str (Numb4 , NumbS) ; 
end; 
end; 
end; 
end; 
PROCEDURE SEND INFO; 
begin 
str(Trial ,NumbT) ; 


Size := ImageSize(00,00,Width,Height) ; 

GetMem(P1, Size); X := SETX( 1); Y := SETY( 1); 
GetImage(X, Y, X + Width, Y + Height, Pl*); 
GetMem(P2, Size); X := SETX( 2); Y := SETY( 2); | 
GetImage(X, Y, X + Width, Y + Height, P2*); 
GetMem(P3, Size); X := SETX( 3); Y := SETY( 3); 
GetImage(X, Y, X + Width, Y + Height, P3*); 
GetMem(P4, Size); X := SETX( 4); Y := SETY( 4); 
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GetImage(X, ¥, X + Width, Y + Height, P4*); 
GetMem(P5, Size); X := SETX( 5); Y := SETY( 5); 
GetImage(X, Y¥, X + Width, ¥ + Height, P5*); 
GetMem(P6, Size); X := SETX( 6); Y := SETY( 6); 
GetImage(X, Y, X + Width, ¥ + Height, Pé*); 
GetMem(P7, Size); X := SETX( 7); Y := SETY( 7); 
GetImage(X, Y, X + Width, Y + Height, P7°); 
GetMem(P8, Size); X := SETX( 8); Y := SETY( 8); 
GetImage(X, Y, X + Width, Y + Height, P8*); 
GetMem(P9, Size); X := SETX( 9); Y := SETY( 9); 
GetImage(X, Y, X + Width, Y + Height, P9*); 
GetMem(P10,Size); X := SETX(10); Y := SETY(10); 
GetImage(X, ¥, X + Width, Y + Height, P10*); 
GetMem(P11,Size); X := SETX(11); Y := SETY(11); 
GetImage(X, Y, X + Width, Y + Height, P11°); 
GetMem(P12,Size); X := SETX(12); Y := SETY(12); 
GetImage(X, ¥, X + Width, Y + Height, P12*); 
GetMem(P13,Size); X := SETX(13); Y := SETY(13); 
GetImage(X, Y, X + Width, Y + Height, P13*); 
GetMem(P14,Size); X := SETX(14); Y := SETY(14); 
GetImage(X, Y, X + Width, Y + Height, P14*); 
GetMem(P15,Size); X := SETX(15); Y := SETY(15); 
GetImage(X, Y, X + Width, Y + Height, P15*); 
GetMem(P16,Size); X := SETX(16); Y := SETY(16); 
GetImage(X, ¥, X + Width, Y + Height, P16*); 
GetMem(P17,Size); X := SETX(17); Y := SETY(17); 
GetImage(X, Y, X + Width, Y + Height, P17*); 
GetMem(P18,Size); X := SETX(18); ¥ := SETY(18); 
GetImage(X, Y, X + Width, Y + Height, P18*); 


str(Trial,trialstr) ; 
trialstr := 'Trial # ' + trialstr; 
SetTextStyle (defaultfont,horizdir,1) ; 
OutTextxy (58,315,trialstr) ; 
str(Hits,hitstr) ; 
hitstr := 'Hits: ' + hitstr; 
OutTextXy (550,315,hitstr) ; 
SetTextStyle (gothicfont, horizdir, 3) ; 
case Numb1 of 
1 : PutImage(050,Height,P1*, NormalPut) ; 
2 : PutImage(050,Height,P2*, NormalPut) ; 
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PutImage(050,Height,P3*, NormalPut) ; 
PutImage(050,Height,P4~, Normal Put) ; 
PutImage(050,Height,P5*, NormalPut) ; 
PutImage(050,Height,P6*, NormalPut) ; 
PutImage(050,Height,P7*, NormalPut) ; 
PutImage(050,Height,P8~, Normal Put) ; 
: PutImage(050,Height,P9*, Normal Put) ; 
: PutImage(050,Height,P10~ ,NormalPut) ; 
: PutImage(050,Height,P11~ ,Normal Put) ; 
: PutImage(050,Height, P12*,Normal Put) ; 
PutImage (050,Height, P13* ,NormalPut) ; 


3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 : 
14 : PutImage(050,Height,P14* ,NormalPut) ; 
15 : PutImage(050,Height, P15* ,NormalPut) ; 
16 : PutImage(050,Height,P16* ,Normal Put) ; 
17 : PutImage(050,Height, P17* ,Normal Put) ; 
18 : PutImage(050,Height,P18* ,NormalPut) ; 
end; 
OutTextXy (050 + Offset,Height + 130,'1'); 
case Numb2 of 
PutImage(200,Height.,P1*, NormalPut) ; 
PutImage(200,Height,P2*, Normal Put) ; 
PutImage(200,Height,P3*, NormalPut) ; 
PutImage(200,Height,P4*, NormalPut) ; 
PutImage (200,Height,P5*, NormalPut) ; 
PutImage(200,Height,P6*, Normal Put) ; 
PutImage(200,Height,P7*, NormalPut) ; 
PutImage(200,Height,P8*, NormalPut) ; 
PutImage(200,Height,P9*, NormalPut) ; 
PutImage(200,Height, P10* ,Normal Put) ; 
PutImage(200,Height, P11* ,NormalPut) ; 
12 : PutImage(200,Height, P12* ,Normal Put) ; 


WKDNAMNEWNHEH 


ee 08 @0 ce 06 06 09 88 08 88 Ge 


13 :. PutImage(200,Height, P13* ,NormalPut) ; 
14 : PutImage(200,Height, P14* ,NormalPut) ; 
15 : PutImage(200,Height,P15* ,NormalPut) ; 
16 : PutImage(200,Height, P16 ,NormalPut) ; 
17 : PutImage(200,Height, P17* ,Normal Put) ; 
18 : PutImage(200,Height, P18* ,NormalPut) ; 
end; 
OutTextX¥ (200 + Offset,Height + 130,'2'); 
case Numb3 of 
1 : PutImage(350,Height,P1*, NormalPut) ; 
2 : PutImage(350,Height,P2*, NormalPut) ; 
3 : PutImage(350,Height,P3~, NormalPut) ; 
4 : PutImage(350,Height,P4*, NormalPut) ; 
5 : PutImage(350,Height,P5*, NormalPut) ; 
6 : PutImage(350,Height,P6*, NormalPut) ; 
7 3: PutImage(350,Height,P7~, NormalPut) ; 
8 : PutImage(350,Height,P8°, NormalPut) ; 
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PutImage(350,Height,P9*, NormalPut) ; 
PutImage (350,Height, P10* ,Normal Put) ; 
PutImage(350,Height, P11* ,NormalPut) ; 
PutImage (350,Height, P12*,NormalPut) ; 
Put Image (350,Height, P13* ,NormalPut) ; 
14 : PutImage(350,Height, P14 ,NormalPut) ; 
15 : PutImage(350,Height, P15* ,NormalPut) ; 
16 : PutImage(350,Height, P16* ,NormalPut) ; 
17 : PutImage(350,Height, P17* ,NormalPut) ; 
18 : PutImage(350,Height, P18* ,NormalPut) ; 


| sone 
rR 
ee ce 08 ef Of 


OutTextXY¥ (350 + Offset ,Height + 130,'3"'); 
case Numb4 of 


1 : PutImage(500,Height,P1*, NormalPut) ; 
2 : PutImage(500,Height,P2*, NormalPut) ; 
3 : PutImage(500,Height,P3~, NormalPut) ; 
4 : PutImage(500,Height,P4*, NormalPut) ; 
5 : PutImage(500,Height,P5*, NormalPut) ; 
6 : PutImage(500,Height,P6~, NormalPut) ; 
7 : PutImage(500,Height,P7*, NormalPut) ; 
8 : PutImage(500,Height,P8*, NormalPut) ; 
9 : PutImage(500,Height,P9*, NormalPut) ; 
10 : PutImage(500,Height, P10*,NormalPut) ; 
11 : PutImage(500,Height, P11* ,NormalPut) ; 
12 : PutImage(500,Height, P12* ,NormalPut) ; 
13 : PutImage(500,Height, P13* ,NormalPut) ; 
14 : PutImage(500,Height, P14~ ,NormalPut) ; 
15 : PutImage(500,Height, P15* ,NormalPut) ; 
16 : PutImage(500,Height, P16* ,NormalPut) ; 
17 : PutImage(500,Height, P17* ,NormalPut) ; 
18 : PutImage(500,Height, P18*,NormalPut) ; 
f 
OutTextXY (500 + Offset,Height + 130,'4'); 
end; 
PROCEDURE SCORE_HIT; 
var 
hitstr ; string; 
begin 
inc(Hits) ; 


SetTextStyle (defaultfont,horizdir, 1) ; 
str(Hits,hitstr) ; 
hitstr := 'Hits: ' + hitstr; 
OutText XY (550,315,hitstr) ; 

end; 


PROCEDURE GET_CHOICE; 
begin 
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repeat 
key := readkey 
until 
(key = #27) or 


(key = #49) or 

(key = #50) or 

(key = #51) or 

(key = #52); 
if (NumbX = 1) and (key = #49) then SCORE_HIT; 
if (NumbX = 2) and (key = #50) then SCORE _HIT; 
if (NumbX = 3) and (key = #51) then SCORE _HIT; 
if (NumbX = 4) and (key = #52) then SCORE_HIT; 
if key <> #27 then 


Numb2 := O;Numb3 := O;Numb4 := 0; 


Numb1 := 0;Numb3 := 0O;Numb4 : 


ll 
° 
me 


Numb1 := O;Numb2 := O;Numb4 : 


Il 
(=) 
=e 


Numb1 := O;Numb2 := 0;Numb3 : 


ll 
(=) 
=e 


Put Parts; 


inc(Trial) ; 


PROCEDURE SHOW_SOCORE? 


var 
key ; char; 
in 
dec(Trial) ;if Trial = 0 then Trial := 1; 
score := (Hits/Trial) * 100; 
rate <:= 25 - score; 
if rate < 0 then rate := rate * (-1); 
if score < 25 then 
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dir := 'below'; 
if score > 25 then dir := ‘above'; 
if score = 25 then dir := ‘at'; 
clrscr; 
gotoxy (10,10) ;write('YOUR SCORE: '); 
gotoxy (20,11) ;write('Number of trials : ',Trial); 
gotoxy (20,12) ;write('Number of hits : ',Hits); 
gotoxy (20,13) ;write('Chance hits : ',Trial div 4); 
gotoxy (20,13) ;write('Percentage success : ',score:5:2,' 
gotoxy (20,14) ;write('Chance probability : 25%'); 
gotoxy (20,16) ;write('You are '); 
if dir <> 'at' then write (rate:5:2,'% ',dir) 
else write(dir) ; 
write(' probability.'); 


end} 
PROCEDURE RESET SCORE; 
begin 
NumbS := 'X'; 
Trial := 1; 
Hits := 0; 
end; 
PROCEDURE TITLE; 
begin 
clrscr}; 


WELLE (URHKIKRAAAEAHRAIKKRRRERRERIREERHREREREERN) 5 
WHITE ( !HHKAKAAAAAARAAAERERAAERRRREREREREREREER O) 


write ('* MENT’) ; 
writeln ('COMM *"); 
write ('* 1) s 


writeln(' SGFOIA3 *! 


) 
ite ('s  ') : 
write ('* HHRKKREKEEK') 3 


WEAUCELN ( ! HRRAAKAAAIAIAHRRERERERRERERERREEAERERE ) 


TITLE; 

write (' MENTCOMM lets you practice your abil'); 
writeln('ity to commmicate mentally.'); 

writeln; 

writeln(' |= MENTOOMM can be used in 2 ways:'); 
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writeln; 
write ('1). Used on a single machine, you atten'); 
writeln('pt to establish mental contact with '); 


write (' the computer, and select the pictur’); 
writeln('e it has chosen as the "TARGEI".'); 
writeln; 


write ('2). If you connect this machine, via mo'); 
writeln('dem or null modem, to another computer, '); 


write (' and run the program MENTOOM2 on it,'); 

writeln(' the target picture will show up on '); 

write (' the other screen, and a second pers'); 

writeln('on can act as a "sender" of the'); 

writeln(! information. ') ; 

writeln; 

writeln(' Press any key to continue'); 


write (' After you read this screen, ge apes 
writeln('l be asked to press a key again. en'); 
write ('do, you will first see a library ae pi'); 
writeln('ctures from which the computer will'); 
write ('select during each tum of the commni'); 
writeln('cation process. '); 

writeln; 

write (' The computer will then select four '); 
writeln('pictures, and show them to you. It'); 
write ('will also secretly select one of them '); 
writeln('as the "TARGET" photo, and wait for'); 
write ('you to get a mental "feeling" (either '); 
writeln('from the machine, or from the person’); 
write (‘acting as the SENDER, as to which pict’); 
writeln('ure is the TARGET. FIRST IMPRESSIONS '); 
write ('ARE OFTEN THE BEST. When you get a fe'); 
writeln('eling for the target, press the number’); 
write ('key corresponding to it. If you are r'); 
writeln('ight, the HITS counter will add one.'); 
write (‘After your choice, the correct picture '); 
writeln('will show briefly, and then you will'); 
writeln('go on to the next rournd.'); 

writeln; 

write (' When you finish, press ESCAPE, and y'); 
writeln('ou will be given your score.'); 


writeln; 

writeln(' Press any key to continue’); 
key := readkey; 

TITLE; 

write (' There are presently 3 libraries of '); 


writeln('"target pictures" from which to choose. '); 
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writeln('They are:'); 
writeln; 
writeln(' 1. Miscellaneous Targets'); 
writeln(' 2. Facial expressions'); 
writeln(' 3. Geometric symbols'); 
writeln; 
write ('With which library would you like to work? '); 
repeat 


picfile := 'SET1.PI3'; 

picfile[4]:= key; 

write(key) ; 

writeln; 

writeln; 

write (' ; PRESS ANY KEY TO BEGIN'); 
key := readkey; 

WRITE_LINE(PicFile) ; 

clrscr; 

gotoxy (29,10) ; 

write ('NOW SETTING THINGS UP"); 

gotoxy (30,11); 

write ('ONE MOMENT, PLEASE'); 

delay (2000) ; 


FUNCTION FILE EXISTS(filename: string) :boolean; 
var f : file; 
begin 
{$I-) 
agsign(f, filename) ; 
reset (£) ; 
close (f); 
{$I+} 
File Exists := (IOresult = 0) and (filename <> ''); 
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library: string; 
a,zZ : integer; 
f : text; 
begin 
sess = 'Reading: '; 
sender := 'Computer'; 
date = rie 
name = ts 
library:= copy(PicFile,1,4); 
clrscr; 


gotoxy (15,10) ; 
write ('PLEASE GIVE ME YOUR NAME: '); 
readln (Name) ; 
gotoxy (15,12); 
write ('Please give today''s date (YYMMDD): '); 
readin (date) ; 
gotoxy (15,14); 
write ('Was this a solo run? '); 
sess := 'Reading: '; 
repeat 
key := upcase(readkey) ; 
until (key = 'Y') or 
(key = 'N'); 
if key = 'N' then 


in 
gotoxy (15,16) ; 
write ('Please give sender''s name: '); 
readin (sender) ; 
end; 
str(Trial, runs) ; 
str(Hits ,good); 
for a := 1 to length(name) do 
if name[a] = #32 then 
in 


for z := a to length(name)-1 do 
name[Z] := name[z2+1]; 
name := copy(name,1, length (name) -1) ; 
name s= copy(name,1,8) + '.MNT'; 
assign (f, name); 
if File_exists(name) = false then 
begin 
rewrite (f£) ; 
close (f); 
end; 


append (f) 7 . 
writeln(f,date,' ',trial,' '‘',hits,' ',library,' ',sess,sender); 
close (f)? 
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end; 


BEGIN 
assign (Lineout, 'COM2‘) ; 
INSTRUCT; 
RESET SCORE; 
randomize; 
DECODE_PI3 PICTURE(PicFile, 600,300) ; 
BREAK _PICTURE_UP; 


GET CHOICE; 
until key = #27; 
Graphics Done; 
SHOW_SOORE; 
gotoxy (20,19) ;write('Press Q to end the program.'"); 
gotoxy (20,20) ;write('Press A to start again.'); 
gotoxy (20,21) ;write('Press C to continue.'); 
repeat 

key := readkey; 

key := upcase(key) 7 


until 
(key = 'Q') or 
(key = 'A') or 
(key = 'C'); 


Action := key; 
WRITE_LINE (Action) ; 
if key = 'C' then NumbS := '1'; 
if key = 'A' then RESET SCORE; 
until key = 'Q'; 
elrscr; 
RECORD SCORE? 
clrscr; 
END. 
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SOURCE CODE FOR THE PROGRAM MENTOOM2. 
WRITTEN IN TURBO PASCAL Ver. 5.1 


PROGRAM MENTCOMM; 
{$I-} 
USES 
CRT, DOS, GRAPH, PI3DECOD, NUMBOCONV; 


CONST 
Height = 100; 
Width = 100; 
Offset = 50; 
code : integer; 
string; 
dunmy : string; 
Key : string; 
Hits : integer; 
text; 
NumbX : integer; 


NumbT : string; 


Score : real; 
Size : word; 
Trial : integer; 
X1, X2, 

X3, X4, 

X5, X6, 

Y1, Y¥2, 

Y3 : integer; 


FUNCTION SETX(Number : integer) : integer; 
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0; 


2, 8, 14: SETX := Width; 
3, 9, 15 : SETX := Width * 2; 
4, 10, 16 : SETX := Width * 3; © 


5, 11, 17 : SETX := Width * 4; 
6, 12, 18 : SETX := Width * 5; 


end; 
FUNCTION SETY (Number : integer) : integer; 


case Number of 


1, 2, 3, 4, 5, 6: SETY := 0; 
7, 8, 9, 10, 11, 12 : SETY := Height; 
13, 14, 15, 16, 17, 18 : SETY := Height * 2; 
end; 
FUNCTION READ LINE:string? 
var 
tempstr : string; 
begin 
reset (Lineout) ; 
read1n (Lineout, 7 


tempstr 
if tempstr[1] = #10 then 
tempstr := copy(tempstr,2, length (tempstr) -1) ; 
close (Lineout) ; 
READ LINE := tempstr; 


end; 


PROCEDURE GET_INFO; 

begin 
NumbS := 'X';NumbT := 'X';NumbH 3= 'X'; 
repeat NumbS := READ LINE until ioresult = 0; 
Val (NumbS , NumbX ,code) ; 
repeat NumbI := READ LINE until ioresult = 0; 
Val (NumbT, Trial ,code) ; 
repeat NumbH := READ LINE until ioresult = 0; 
Val (NumbH,Hits ,code) ; 

end; 


Size := ImageSize(00,00,Width,Height) ; 
GetMem(P1, Size); X := SETX( 1); Y := SETY( 1); 
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GetImage(X, Y, X + Width, Y + Height, 
GetMem(P2, Size); X := SETX( 2); Y¥ 3= 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P3,. Size); X := SETX( 3); Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P4, Size); X := SETX( 4)7 Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P5, Size); X := SETX( 5); Y := 
GetImage(X, Y¥, X + Width, Y + Height, 
GetMem(P6, Size); X := SETX( 6); Y 3= 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P7, Size); X := SETX( 7); Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P8, Size); X := SETX( 8)7 Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P9, Size); X := SETX( 9); Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P10,Size); X := SETX(10); Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P11,Size); X := SETX(11); Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P12,Size); X := SETX(12)7 Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P13,Size); X := SETX(13); Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P14,Size); X := SETX(14); Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P15,Size); X := SETX(15); Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P16,Size); X := SETX(16); Y 3= 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P17,Size) ; X := SETX(17); Y := 
GetImage(X, Y, X + Width, Y + Height, 
GetMem(P18,Size); X := SETX(18); Y := 
GetImage(X, Y, X + Width, Y + Height, 


e 


PROCEDURE PUT_TARGET; 
var 


trialstr 
hitstr 


string; 
string; 


oe 08 


begin 


ClearDevice; 

str(Trial,trialstr) ; 

trialstr := ‘Trial # ' + trialstr; 
str(Hits ,hitstr); 

hitstr := 'Hits: ' + hitstr; 
SetTextStyle (defaultfont,horizdir,1) ; 


P1*); 
SETY( 2); 
P2*); 
SETY( 3); 
P3*); 
SETY( 4); 
PA"); 
SETY( 5); 
P5*); 
SETY( 6); 
P6*); 
SETY( 7); 
P7*); 
SETY( 8); 
P8*); 
SETY( 9); 
PO*); 
SETY (10) ; 
P10“); 
SETY (11) ; 
P11*); 
SETY (12) 7 
P12*); 
SETY (13) ; 
P13*); 
SETY (14) ; 
P14*); 
SETY (15) ; 
P15"); 
SETY (16) ; 
P16"); 
SETY (17) ; 
P17*); 
SETY (18) ; 
P18*) ; 
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{ACTIVATE NEXT 2 LINES TO SHOW BOTH TRIALS AND HITS} 
{OutTextXy (58, 315,trialstr) ; 

Out‘TextXy (550,315,hitstr) ;} 

SetTextStyle (gothicfont,horizdir, 3) ; 

{ACTIVATE NEXT LINE TO SHOW ONLY HITS} 

OutTextXy (300,315,hitstr) ; 

case NumbX of 


1: PutImage(275,Height,P1*, NormalPut) ; 
2 : PutImage(275,Height,P2°, NormalPut) ; 
3 : PutImage(275,Height,P3*, NormalPut) ; 
4 : PutImage(275,Height,P4~, NormalPut) ; 
5 : PutImage(275,Height,P5°, NormalPut) ; 
6 : PutImage(275,Height,P6°, NormalPut) ; 
7 : PutImage(275,Height,P7*, NormalPut) ; 
8 : PutImage(275,Height,P8*, NormalPut) ; 
9 : PutImage(275,Height,P9°, NormalPut) ; 
10 : PutImage(275,Height,P10* ,NormalPut) ; 
11 : PutImage(275,Height, P11* ,NormalPut) ; 
12 : PutImage(275,Height, P12~,NormalPut) ; 
13 : PutImage(275,Height, P13 ,NormalPut) ; 
14 : PutImage(275,Height,P14° ,NormalPut) ; 
15 : PutImage(275,Height,P15* ,NormalPut) ; 
16 : PutImage(275,Height, P16* ,NormalPut) ; 
17 : PutImage(275,Height,P17* ,NormalPut) ; 
18 : PutImage(275,Height, P18~ ,NormalPut) ; 
end; 


begin 

dec(Trial) ;if Trial = 0 then Trial := 1; 
score := (Hits/Trial) * 100; 
rate := 25 - score; 
if rate < 0 then rate := rate * (-1); 
if score < 25 then 

dir := 'below'; 
if score > 25 then dir := 
if score = 25 then dir := 'at'; 
clrscr; 
gotoxy (10,10) ;write('SCORE: ') ; 
gotoxy (20,11) ;write('Number of trials 
gotoxy (20,12) ;write('Number of hits 
gotoxy (20,13) ;write('Chance hits. 
gotoxy (20,13) ;write('Percentage success 
gotoxy (20,14) ;write('Chance probability 
gotoxy (20,16) ;write('You are '); 


' Trial) ; 

' Hits) 7 

' Trial div 4); 

' score:5:2,'%'); 
25%"); 


oe 00 68 8 se 
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if dir < 'at' then write (rate:5:2,'% ',dir) 
else write(dir) ; 
write(' probability.'); 


f 


PROCEDURE INSTRUCT; 
begin 
clrscr; 
gotoxy (36, 3); 
write ('MENTOOM2'); 
gotoxy (1, 5); 
write (' This portion of the MENTOCOMM progra'); 
writeln('m allows you to practice and develop"); 
write ('your ability to send mental messages to'); 
writeln(' another person. MENTCOM2 works only"); 
writeln('in conjunction with the MENTOOMM program. '); 
writeln; 
write (' When the "receiving" person has read’); 
writeln(' their instructions, you will be shown'); 
writeln('a screen of possible target pictures.'); 
writeln; 
write (' The "receiving" person will see a pa'); 
writeln('nel of 4 of these pictures, chosen at '); 
write ('random, one of which will be the "TARGE'); 
writeln('T" picture (they will not know which).'); 
write (‘Only you will see the "TARGET" picture. '); 
writeln(' You should concentrate on it to the'); 
write ('best of your ability. You do not nece'); 
writeln('ssarily have to "SEND" it to the other'); 
write ('person. It is often best to just expe'); 
writeln('rience it as fully as you can, losing'); 
write ('yourself in that experience, and let '); 
writeln('the receiving person do the rest.'); 
writeln; 
write ('The program will proceed as soon as the'); 
writeln(' receiving person is ready.'); 
writeln; 
repeat PicFile := READ LINE until ioresult = 0; 
clrscr; 
end; 


BEGIN 
assign (Lineout,, 'COM2'); 
INSTRUCT; 
DECODE_PI3_ PICTURE (PicFile, 600,300) ; 
BREAK PICTURE_UP; 
repeat 
key s= 'C!; 
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GET_INFO; 
if NumbS < '0' then PUT_TARGET; 
until NumbS = '0'; 
Graphics Done; 
SHOW SCORE; 
repeat key := READ LINE until ioresult = 0; 
until key = 'Q'; 
clrscr; 
END. 
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SOURCE CODE FOR THE PROGRAM PI3DECOD.TPU 
WRITTEN IN TURBO PASCAL Ver. 5.1 


UNIT PI3DECOD; 


INTERFACE 


PROCEDURE DECODE | PI3 PICTURE (FileName: string; Pixwide, Pixhigh: integer) ; 


IMPLEMENTATION 

VAR 
F : text; 
FileName : string; 


Procedure Graphics Init; 
var 
GraphDriver : integer; 
GraphMode : integer; 


GraphDriver := Detect; 

InitGraph (GraphDriver, GraphMode,''); 

ErrorCode := GraphResult; 

if ErrorCode < grok then 

begin 

writeln('ERROR: ',GraphErrorMsg (ErrorCode) ) ; 
writeln('Either that file does not exist, or there is a'); 
writeln('graphics error. You may not have a graphics '); 
writeln('card, or the proper .BGI file.'); 
Writeln('Program aborted....'); 
Readin; 
Halt(1) ; 


end; 
end; {Sub Procedure Graphics Init} 


PROCEDURE DECODE_PI3_PICTURE(FileName:string;Pixwide, Pixhigh: integer) ; 
var 
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B : char; 

colorl : integer; 
color2 : integer; 
TotalBytes : integer; 
xX : integer; 
xSize : integer; 
4 : integer; 
YSize : integer; 


BitStr : string[8]; 
Count : integer; 
Times : integer; 
Total : integer; 
tempint: integer; 
PROCEDURE OPEN_FILE; 


in 
assign(f, filename) ; 


XSize := pixwide; 
YSize := pixhigh; 
TotalBytes := XSize div 8; 
end; {Sub Procedure Set_Parameters} 


if BitStr[bytes}] = '1' then putpixel(x,y,0) 
else putpixel(x,y,1); 
inc(x); 
end; 
end; (Sub Procedure Display Byte} 


Function Byte _To Bits(ByteOrd: integer) :string; 
var 
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place := 1; 
for place := 1 to 8 do 
begin 


if ByteOrd - amt < 0 then 
tempstr[place] := '0' 
else 


begin 
tempstr[place] := '1'; 
ByteOrd := ByteOrd - amt; 


amt := amt div 2; 
end; 
BYTE TO BITS := tempstr; 
end; {Sub ] Function Byte To Bits} 


Function Bits To Byte(instr:string) : integer; 


temp : integer; 
begin 
temp := 0; 


value := 128; 
for bit := 1 to 8 do 


begin 
if instr[{bit] = '1' then temp := temp + value; 
value := value div 2; 
end; 
Bits To Byte := temp; 
end; {Sub Function Bits To Byte} 


Procedure Get_File Info; 
var filex : integer; 
begin 

for filex := 1 to 34 do 


in 
read(f,b); 
case filex of 
3 : tempint := ord(b); 
4 : colorl := (256 * tempint) + ord(b); 
5 : tempint := ord(b); 
6 : color2 := (256 * tempint) + ord(b); 
end; 
end; 
end; 


begin {Procedure Decode_Picture} 
Open_File; 
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Graphics Init; 
Set_Parameters; 
for x := 1 to 34 do read(f,b); 
for y := 1 to YSize do 
begin 
xX 3= 1; 
if keypressed then 


for count := 1 to TotalBytes do 
in 

read (f£,b) 7 
BitStr := Byte To Bits(ord(b)); 
Display Byte; 

if TotalBytes < 80 then 

for count := TotalBytes to 79 do 
read (f,b) ; 
end; 
end; {Procedure Decode_PI3_ Picture} 


end. {UNIT PI3DECOD} 


APPENDIX D: Page D-4 


UNCLASSIFIED 
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3 


Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3 


UNCLASSIFIED 


cK 

> 
ge 
i) 


rit gtit 
atetata: 


atitetitet 
tetetete 


LIBRARY 1 : Miscellaneous subjects 


APPENDIX E: Page E-1 


UNCLASSIFIED 
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3 


Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3 


UNCLASSIFIED 


b 
‘yy 
i 


a; 
ull 1 oil 


LIBRARY 2 : Facial expressions 
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LIBRARY 3 : SYMBOLS 
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EEECEEE EEE CHEE EEE BEES 


x MENTCOMM t 
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SSN EE TT 
JERE HHH BEES ea JEHEEEE SGFOIA3 
HENTCOMM lets you practice your ability to communicate aentally, 


MENTCOHH can be used in 2 ways: 


i). Used on a single gachine, you atteapt to establish mental contact with 
the coaputer, and select the picture it has chosen as the "TARGET*. 


2). If you connect this machine, via modea or null modes, to another computer, 
” and run the program MENTCON2 on it, the target picture will show up on 
the other screen, and a second person can act as a "sender" of the 


inforaation. 


Prass any key to continue 


SCREEN 1 : Introduction 
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After you read this screen, you will be asked to press a key again. When 
do, you will first see a library of pictures from which the computer will 
select during each turn of the communication process. 


The computer will then select four pictures, and show them to you. It 
will also secretly select one of them as the "TARGET" photo, and wait for 
you to get a mental “feeling” (either from the machine, or froa the person 
acting as the SENDER, as to which picture is the TARGET. FIRST IMPRESSIONS 
ARE OFTEN THE BEST. When you get a feeling tor the target, press the nuaber 
key corresponding to it. If you are right, the HITS counter will add one. 

After your choice, the correct picture will show briefly, and then you will 
go on to the next round. 
When you finish, press ESCAPE, and you will be given your score. 


Press any key to continue 


SCREEN 2 : Instructions 
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There are presently 3 libraries of "target pictures" from which to choose. 
They ares 


i. Hiscellaneous targets 
2, Facial expressions 
3. Geometric syabols 


With which library would you like to work? I 


PRESS ANY KEY TO BEGIN 


SCREEN 3 : Choose Library 
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NOW SETTING THINGS UP 
GNE NONENT, PLEASE 


SCREEN 4 : Notice to set up timing 
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SCREEN 5 : Display of entire library 


¥ 
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Trial # 11 


SCREEN 6 : DETECTION OF A TARGET CARD 


The computer randomly chooses four “cards” from 
the library and displays them on the screen. 
One is then randomly selected to be the “target”. 
It is the task of the "receiver” participant 
to mentally determine which of the four 
is the desired target card. 


This screen is taken from an actual session. 
One of these cards is the target. Can you 
determine which? (answer next page) 
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Trial # 11 


SCREEN 7 : IMMEDIATE FEEDBACK IS GIVEN 
The target card from the previous screen was #1. 
As you can see from the Hits number in the 
lower right corner of the screen, the 


participant correctly detected the target. 
Did you? 
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YOUR SCORE: 
Huaber of trials + 10 
Nusber of hits +4 
Percentage success : 40.00% 
Chance probability : 25% 
You are 15.00% above probability. 
Press @ to end the prograa. 


Press A to start again. 
Press € to continue. 


SCREEN 7 : Evaluation of session 
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SG1J PLease GIvE me vour nave: [il 


Please give today’s date {YYMNDD): 710602 


Was this a solo run? 


SG1J Please give sender's naaes a] 


SCREEN 8 : Information needed for statistics 
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FILENAME: ee: 


DATE TRIALS HITS LIBRARY SENDER 


SG1J 910602 20. 9 SET3 Smith 
910603 40 17 SET1 Computer 
910604 20 5 SET3 Computer 
910605 100 41 SET2 Computer 
910610 40 23 SET1 Smith 
910613 20 7 SET1 Computer 


FORMAT FOR THE PERMANENT DATA FILE 
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